/* This dofile plots location of normal and asylum  counties */



use "normal_asylum_all.dta",clear

* Figure 2

use "normal_asylum_all.dta",clear


gen county = cty_fips

gen normal = normalschools != . 

 
merge 1:m county using "county1990_database.dta"
drop _merge


gen statefip = floor(county/1000)
spmap normal  using "county1990_coords.dta" if statefip!= 2 & statefip!=15 , ///
id(id) fcolor(navy red*0.2)  ndfcolor(white)   ocolor(black)   osize(vvvthin) ndsize(vvvvthin)  ndocolor(gs14) clmethod(unique) ///
legend( label(1 "Not in sample")  label(2 "Asylum")  label(3 "Normal") position(5)   size(*1.8))  polygon(data("state_coords_clean") ocolor(black) osize(medium) select(drop if inlist(_ID,27,8)))
graph export "normal_asylum_county.pdf", replace 
//graph export "exhibits\normal_asylum_county.png", as(png) replace 

